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Single Precision Binary to BCD 



TAPES 



ASCII Sources 090-000028 



ABSTRACT 



This routine converts a single precision binary number to its 
four digit BCD equivalent. 
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1. 1 Memory 

IK or larger alterable memory 
1-2 Equipment 

&OVA central processor 

1. 3 External Subroutines 
None 

1.4 Other 
Kione 

2. OPERATING PROCEDURE 

2. 1 Calling Sequence 

JSR .BBCD 
return 

2.2 Input Format 

A positive binary number in AC1. 

2. 3 Output Format 

The four digit (16-bit) BCD equivalent of the 
binary input is returned in AC1. 

2.4 Error Returns 

If a number greater than 9999 is input for con- 
version, Carry is set to indicate an error 
(only four digits of BCD information can be 
accomodated in 16 bits). Otherwise, Carry will 

be zero on return. 



-3- 



2 • 5 State of Active Registers upon Exit 

hC0 and ^C2 are unchanged. AC1, AC 3, and Carry 

are destroyed. 

2. 6 Cautions to User 
i\one 
3. DISCUSSION 

3 . 1 Algorit hms 

The binary input is compared to 10,000. If 
greater than or equal to, Carry is set to 
indicate an error and return is made. Otherwise, 
each of the four BCD digits is determined by 
successively subtracting an appropriate power 
of ten from the original value until the result 
is negative. Each subtraction that gives a 
result greater than or equal to zero causes the 
current BCD digit to be incremented. When the 
result becomes negative, its previous value is 
restored and the next lower power of ten is subtracted. 
After ±$**0 is used, the conversion is complete. 

3. 2 Limitations and Accuracy 

The routine is exact for all binary values less 
than 10,000 decimal. 

3. 3 Size and Timing 

The routine is 41 (octal) words in length. 

Execution time is 273.8 + B * 14. 1 M seconds, 
where B is the sum of the digits of the result. 
For example, if the input is decimal 4790, 
K=4+7+9+0=2#, and the execution time 

is 

273.8 + 20*14.1 = 555.8 yW seconds. 
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3.4 References 
Bone 

3. 5 Flow Diagrams 
None 

4. EXAMPLES AI^D APPLICATIONS 

The ASCII source of .BBCD is provided with the NOVA 
software. If a user routine requires binary to BCD 
conversion, the tape should be edited into the user's 

source. 

5. PROGRAM LISTING 

A listing of .BBCD follows. No origin is given in 
the source, enabling the tape to be edited anywhere 
within a user routine. 



00080 
00001 
00002 
00803 

00004 

00085 
00006 
§008? 

08010 

00011 

00012 
00813 
00014 
00015 
00016 
00017 
00020 
00021 
§0022 
00023 



§54032 
83403? 
136842 
§02032 
040030 
050031 
834040 
102408 

031400 
175400 
101120 

101120 
101 120 
101 1.20 

146422 
101401 
147001 
000016 
151224 
000810 



J CONVERT ft NUMBER IN BINARY TO BGO 

I INPUT I AN UNSIGNED BINAHY NUMBER IN AC1 

J OUTPUT? THE BCD EQUIVALENT IN AC I 

1 CALLING SEQUENCE I 
I JSM »BBDC 
J RETUKN 



EXCEPTIONAL CONDITION: 



J UNCHANGED! 
1 OESTKOYEOS 



IF AG! CONTAINS A 
NUMBER GREATER THAW 9999 , 
NO CONVERSION WILL TAKE PLAGE 
AND CARHY-WlLL.aE SET 



ACi# 
ACl# 



AC2 
AC3* 



• BBCDl STA 3,»*£B03 

LDA 3*. £320 

ADCO !#3*S2C 

JHP ^.£803 

STA 0#«EB00 

STA 2,»EB02 

LOA 3#.EB3i 

SUB 0*0 
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00024 105020 .EB99S 
80025 020030 

00026 030031 

00027 002032 



LDA 2,0*3 
INC 3*3 
M0V2L 0*0 
HOVEL 0#0 
MOVSL 0*0 
MOV2L %»% 
SUB2 2*1#S2C 
INC i#0#SKP 
ADD 2#1#SKP 
JMP .-3 
M0V2R 2#2*S2R 
J«P »£B98 

MOVZ 0*1 
LOA 0#»EB0i 
LDA 2#.EB02 
JMP §«EB03 



AND CARRY 



1 SAVE RETURN 

I TEST FOR >= 10000 

I £KROR# CARRY IS SET # 

1 SAVE AC0 

I SAVE AC 2 

J ADDRESS Of POWER OF TEN TABLE 

1 CLEAR AGO FOR RESULT 

I GET CURRENT POWER OF TEN 

I BUMP POINTER 

I SHIFT AC0 LEFT 4 PLACES 



1 OOES POWER OF TEN GO IN? 

I YES* BUHP RESULT 

I NO# RESTORE RESULT 

I LOOP TILL DOESN'T 

I DONE IF 1 IN AC2 

I NO 

I RESULT TO AC1* CLEAR CARRY 

I rtESfOKE AC0 

I RESTORE AC2 

; ketj.^ 



ft t 



00030 000000 

00031 000000 

J3003H 000000 



1001 



00033 
00034 
00035 

00036 



000012 

€': ! ~:y>) 

000 i 44 
000010 
000001 
000010 



Kimbl 



1000 
100 
10 
I 



10 



0003? 023420 .£820: 23400 



00040 000033 .EB30I .0B03 



I SAVE A00 
J 3 AVE A02 
I SAVE HE TURN 



1 10**3 

I 10#*2 

1 10**1 

J 10**0 



I 1 0**4 ( > LARGEST LEGAL 
I INPUT) 



i A00HE3S OK POWfclK 0F fEN fABLfc' 



